home *** CD-ROM | disk | FTP | other *** search
/ PCMania 32 / PCMania CD32_2.iso / bioforge / script / tombmon.scp < prev    next >
Text File  |  1995-02-20  |  4KB  |  377 lines
  1.  
  2. { FLUSH_SIDES _STATE
  3.  "LT1A" ~ÇÇ 
  4.  "LT2A" ~ÇÇ 
  5.  "LT3A" ~ÇÇ 
  6.  "LT4A" ~ÇÇ 
  7.  "LT5A" ~ÇÇ 
  8.  "LT6A" ~ÇÇ 
  9.  "LT7A" ~ÇÇ 
  10.  "LT8A" ~ÇÇ 
  11.  "LT9A" ~ÇÇ 
  12.  "RT1A" ~ÇÇ 
  13.  "RT2A" ~ÇÇ 
  14.  "RT3A" ~ÇÇ 
  15.  "RT4A" ~ÇÇ 
  16.  "RT5A" ~ÇÇ 
  17.  "RT6A" ~ÇÇ 
  18.  "RT7A" ~ÇÇ 
  19.  "RT8A" ~ÇÇ 
  20.  "RT9A" ~ÇÇ 
  21. }
  22. { COMBINE_COLOR _C1 _C2
  23. P ~Çé 
  24. N ~ÇÇ 
  25. {
  26. U 2 
  27. N ~Çü 
  28. {
  29. U 2 
  30. ~Çé = 2
  31. X Çü 
  32. U 3 
  33. ~Çé = 3
  34. X Çü 
  35. U 4 
  36. ~Çé = 7
  37. X Çü 
  38. }
  39. X ÇÇ 
  40. U 3 
  41. N ~Çü 
  42. {
  43. U 2 
  44. ~Çé = 3
  45. X Çé 
  46. U 3 
  47. ~Çé = 4
  48. X Çé 
  49. U 4 
  50. ~Çé = 5
  51. X Çé 
  52. }
  53. X ÇÇ 
  54. U 4 
  55. N ~Çü 
  56. {
  57. U 2 
  58. ~Çé = 7
  59. X Çâ 
  60. U 3 
  61. ~Çé = 5
  62. X Çâ 
  63. U 4 
  64. ~Çé = 6
  65. X Çâ 
  66. }
  67. X ÇÇ 
  68. }
  69. é ~Çé 
  70. }
  71. { DETERMINE_3STATE _FLAG
  72. N ~ÇÇ 
  73. {
  74. U 0
  75. ^Åà = 2
  76. ^Åå = 3
  77. ^Åç = 4
  78. X Çä 
  79. U 1
  80. ^Åà = 3
  81. ^Åå = 4
  82. ^Åç = 2
  83. X Çä 
  84. U 2
  85. ^Åà = 4
  86. ^Åå = 2
  87. ^Åç = 3
  88. X Çä 
  89. }
  90. }
  91. { UPDATE_TOMB_GRID
  92. P ~ÇÇ 
  93.  "LT1A" ^Ä│ 
  94.  "LT2A" ^Ä┤ 
  95.  "LT3A" ^Ä╡ 
  96.  "LT4A" ^Ä╢ 
  97.  "LT5A" ^Ä╖ 
  98.  "LT6A" ^Ä╕ 
  99.  "LT7A" ^Ä╣ 
  100.  "LT8A" ^Ä║ 
  101.  "LT9A" ^Ä╗ 
  102.  "RT1A" ^Ä╝ 
  103.  "RT2A" ^Ä╜ 
  104.  "RT3A" ^Ä╛ 
  105.  "RT4A" ^Ä┐ 
  106.  "RT5A" ^ÅÇ 
  107.  "RT6A" ^Åü 
  108.  "RT7A" ^Åé 
  109.  "RT8A" ^Åâ 
  110.  "RT9A" ^Åä 
  111. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä│ ^Ä╝ 
  112.  "PZ1A" ~ÇÇ 
  113. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä┤ ^Ä╜ 
  114.  "PZ2A" ~ÇÇ 
  115. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╡ ^Ä╛ 
  116.  "PZ3A" ~ÇÇ 
  117. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╢ ^Ä┐ 
  118.  "PZ4A" ~ÇÇ 
  119. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╖ ^ÅÇ 
  120.  "PZ5A" ~ÇÇ 
  121. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╕ ^Åü 
  122.  "PZ6A" ~ÇÇ 
  123. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╣ ^Åé 
  124.  "PZ7A" ~ÇÇ 
  125. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä║ ^Åâ 
  126.  "PZ8A" ~ÇÇ 
  127. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╗ ^Åä 
  128.  "PZ9A" ~ÇÇ 
  129. }
  130. { SET_UP_SOLUTION
  131. P ~ÇÇ 
  132.  
  133. ^Ä¡ = 0
  134. ^Ä« = 1
  135. ^Ä» = 1
  136. ^Ä░ = 2
  137. ^Ä▒ = 0
  138. ^Ä▓ = 0
  139. @Ç¥ DETERMINE_3STATE ^Ä¡ 
  140. ^Ä┐ = ^Åà 
  141. ^Ä╜ = ^Åå 
  142. ^Ä╝ = ^Åç 
  143. @Ç¥ DETERMINE_3STATE ^Ä« 
  144. ^Åé = ^Åà 
  145. ^ÅÇ = ^Åå 
  146. ^Ä╛ = ^Åç 
  147. @Ç¥ DETERMINE_3STATE ^Ä» 
  148. ^Åä = ^Åà 
  149. ^Åâ = ^Åå 
  150. ^Åü = ^Åç 
  151. @Ç¥ DETERMINE_3STATE ^Ä░ 
  152. ^Ä╗ = ^Åà 
  153. ^Ä╣ = ^Åå 
  154. ^Ä╢ = ^Åç 
  155. @Ç¥ DETERMINE_3STATE ^Ä▒ 
  156. ^Ä║ = ^Åà 
  157. ^Ä╖ = ^Åå 
  158. ^Ä┤ = ^Åç 
  159. @Ç¥ DETERMINE_3STATE ^Ä▓ 
  160. ^Ä╕ = ^Åà 
  161. ^Ä╡ = ^Åå 
  162. ^Ä│ = ^Åç 
  163. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä│ ^Ä╝ 
  164.  "SL1A" ~ÇÇ 
  165. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä┤ ^Ä╜ 
  166.  "SL2A" ~ÇÇ 
  167. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╡ ^Ä╛ 
  168.  "SL3A" ~ÇÇ 
  169. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╢ ^Ä┐ 
  170.  "SL4A" ~ÇÇ 
  171. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╖ ^ÅÇ 
  172.  "SL5A" ~ÇÇ 
  173. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╕ ^Åü 
  174.  "SL6A" ~ÇÇ 
  175. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╣ ^Åé 
  176.  "SL7A" ~ÇÇ 
  177. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä║ ^Åâ 
  178.  "SL8A" ~ÇÇ 
  179. ~ÇÇ = @Ç¥ COMBINE_COLOR ^Ä╗ ^Åä 
  180.  "SL9A" ~ÇÇ 
  181.  
  182. ^ĺ = 2
  183. ^Ä¿ = 2
  184. ^Ä⌐ = 0
  185. ^Ĭ = 1
  186. ^Ľ = 1
  187. ^ļ = 1
  188. @Ç¥ DETERMINE_3STATE ^ĺ 
  189. ^Ä┐ = ^Åà 
  190. ^Ä╜ = ^Åå 
  191. ^Ä╝ = ^Åç 
  192. @Ç¥ DETERMINE_3STATE ^Ä¿ 
  193. ^Åé = ^Åà 
  194. ^ÅÇ = ^Åå 
  195. ^Ä╛ = ^Åç 
  196. @Ç¥ DETERMINE_3STATE ^Ä⌐ 
  197. ^Åä = ^Åà 
  198. ^Åâ = ^Åå 
  199. ^Åü = ^Åç 
  200. @Ç¥ DETERMINE_3STATE ^Ĭ 
  201. ^Ä╗ = ^Åà 
  202. ^Ä╣ = ^Åå 
  203. ^Ä╢ = ^Åç 
  204. @Ç¥ DETERMINE_3STATE ^Ľ 
  205. ^Ä║ = ^Åà 
  206. ^Ä╖ = ^Åå 
  207. ^Ä┤ = ^Åç 
  208. @Ç¥ DETERMINE_3STATE ^ļ 
  209. ^Ä╕ = ^Åà 
  210. ^Ä╡ = ^Åå 
  211. ^Ä│ = ^Åç 
  212. }
  213. { TOMB_MONITOR
  214. I @Çú THEN
  215. é 
  216.  "tomb"
  217. m 
  218.  
  219.  "LTUB" $Ç│ 
  220.  "LTCB" $Ç│ 
  221.  "LTLB" $Ç│ 
  222.  "RTLB" $Ç│ 
  223.  "RTCB" $Ç│ 
  224.  "RTUB" $Ç│ 
  225.  
  226. å 360 1
  227.  
  228.  
  229. ç 10 5 10
  230. I ^Ī THEN
  231. J #ÇÉ
  232. :START
  233.  
  234. I ^ìà = $üé THEN
  235. I @Ç¢ DROGG2 THEN
  236. {
  237. G HACK_666
  238. £ -60
  239. }
  240. @Ç¥ FLUSH_SIDES 1
  241. W 25
  242. :START_FLASH
  243. @Çå `é▓ 
  244. @Ç¥ FLUSH_SIDES 2
  245. â 
  246. â 
  247. â 
  248. @Çå `é▓ 
  249. @Ç¥ FLUSH_SIDES 3
  250. â 
  251. â 
  252. â 
  253. @Çå `é▓ 
  254. @Ç¥ FLUSH_SIDES 4
  255. â 
  256. â 
  257. â 
  258. L #Çç 2
  259. @Ç¥ SET_UP_SOLUTION
  260. @Ç¥ UPDATE_TOMB_GRID
  261.  
  262. :LOOP
  263. â 
  264.  
  265. J #Çê 
  266.  
  267. :LTUB_BUTTON
  268. @Çå `ë╛ 
  269. ^ĺ ++
  270. I ^ĺ = 3 THEN
  271. ^ĺ = 0
  272. @Ç¥ DETERMINE_3STATE ^ĺ 
  273. ^Ä┐ = ^Åà 
  274. ^Ä╜ = ^Åå 
  275. ^Ä╝ = ^Åç 
  276. @Ç¥ UPDATE_TOMB_GRID
  277. J #ÇÅ 
  278.  
  279. :LTCB_BUTTON
  280. @Çå `ë╛ 
  281. ^Ä¿ ++
  282. I ^Ä¿ = 3 THEN
  283. ^Ä¿ = 0
  284. @Ç¥ DETERMINE_3STATE ^Ä¿ 
  285. ^Åé = ^Åà 
  286. ^ÅÇ = ^Åå 
  287. ^Ä╛ = ^Åç 
  288. @Ç¥ UPDATE_TOMB_GRID
  289. J #ÇÅ 
  290.  
  291. :LTLB_BUTTON
  292. @Çå `ë╛ 
  293. ^Ä⌐ ++
  294. I ^Ä⌐ = 3 THEN
  295. ^Ä⌐ = 0
  296. @Ç¥ DETERMINE_3STATE ^Ä⌐ 
  297. ^Åä = ^Åà 
  298. ^Åâ = ^Åå 
  299. ^Åü = ^Åç 
  300. @Ç¥ UPDATE_TOMB_GRID
  301. J #ÇÅ 
  302.  
  303. :RTLB_BUTTON
  304. @Çå `ë╛ 
  305. ^Ĭ ++
  306. I ^Ĭ = 3 THEN
  307. ^Ĭ = 0
  308. @Ç¥ DETERMINE_3STATE ^Ĭ 
  309. ^Ä╗ = ^Åà 
  310. ^Ä╣ = ^Åå 
  311. ^Ä╢ = ^Åç 
  312. @Ç¥ UPDATE_TOMB_GRID
  313. J #ÇÅ 
  314.  
  315. :RTCB_BUTTON
  316. @Çå `ë╛ 
  317. ^Ľ ++
  318. I ^Ľ = 3 THEN
  319. ^Ľ = 0
  320. @Ç¥ DETERMINE_3STATE ^Ľ 
  321. ^Ä║ = ^Åà 
  322. ^Ä╖ = ^Åå 
  323. ^Ä┤ = ^Åç 
  324. @Ç¥ UPDATE_TOMB_GRID
  325. J #ÇÅ 
  326.  
  327. :RTUB_BUTTON
  328. @Çå `ë╛ 
  329. ^ļ ++
  330. I ^ļ = 3 THEN
  331. ^ļ = 0
  332. @Ç¥ DETERMINE_3STATE ^ļ 
  333. ^Ä╕ = ^Åà 
  334. ^Ä╡ = ^Åå 
  335. ^Ä│ = ^Åç 
  336. @Ç¥ UPDATE_TOMB_GRID
  337. J #ÇÅ 
  338.  
  339. :CHECK_WIN
  340. I ^ĺ = ^Ä¡ THEN
  341. I ^Ä¿ = ^Ä« THEN
  342. I ^Ä⌐ = ^Ä» THEN
  343. I ^Ĭ = ^Ä░ THEN
  344. I ^Ľ = ^Ä▒ THEN
  345. I ^ļ = ^Ä▓ THEN
  346. J #ÇÉ
  347. J #Çê 
  348.  
  349. :WIN
  350. @Çå `ë┐ 
  351. @Ç¥ FLUSH_SIDES 2
  352. â 
  353. â 
  354. â 
  355. @Çå `ë┐ 
  356. @Ç¥ FLUSH_SIDES 3
  357. â 
  358. â 
  359. â 
  360. @Çå `ë┐ 
  361. @Ç¥ FLUSH_SIDES 4
  362. â 
  363. â 
  364. â 
  365. L #ÇÉ 4
  366. W 30
  367. ^Ī = $üâ 
  368.  
  369.  
  370. :ESCAPE_BUTTON
  371. @Çå `èÇ 
  372.  
  373. }
  374.  
  375.  
  376. //$ 26 - version number
  377.